EE ٤ 
٠۰ جدید فیجول ستودیو‎ 


تخدم فئتك ثم قم بانشائها 
اكتب الكود الذي سيستخدم نم فم 


من الميزات الجديدة المقدمة ضمن فيجول ستوديو ۲٠٠١‏ هي إمكانية كتابة الكود حسب احتياج برنامجك ثم إنشاء الفئة اعتمادا على ذلك 
الكود وهذا ضمن لغتي فيجول بايزيك و سي شارب على حد سواء 
أنشئ مشروعا جديا وضع على نافذة المشروع صندوق نصوص و زر تم انقر نقرا مزدوجا على الزر للإنتقال إلى محرر الكود 
اكتب الكود التالي في إجراء الحدث 
Dim sa As New Person(PerName:="Samer", Age:=38)‏ 


ستلاحظ ظهور خط أزرق متعر ج تحت 0ء٣٠۴‏ وذلك لأن الفئة ممء٣عمم‏ غير موجودة قف ظيلا فوق ٣0٣٠م‏ بمؤش الماوس فيظهر لك 
قائمة تصحيح الأخظاء انقر فوق llخيlر Generate Class Preson‏ حتى تقوم بيئة التطوير بإنشاء الفئة من أجلك حسب طريقة استخدامك 
لھا 


Private Sub Button1 Click(ByvVal sender As System.Object, ByVal e As Syster 
Dim sa As New Person ( PerName:="samer", Age:=33) 


4 اھ 


Private Sub Button1 Click{(ByVal sender As System.Object, ByVal 
Dim sa As New Person (PerName:="samer", Age:=38) 


Type "Person" is not defined. 


enerate 'Llass Person 


ا 


Generate new typE... 


سيتم الآن إضافة الملف ط0".۷ءإم" لمشروعك وهو يحتوي على الفئة الجديدة افتح الملف وانظر للكود الذي قامت بيئة التطوير بتوليده من 


Class Person 


Private _age As Integer 
Private _perName As String 


Sub New(ByVal PerName As String, ByVal Age As Integer) 
' TODO: Complete member initialization 
_perName = PerName 
_age = Age 

End Sub 


End Class 


يمكننا ليد الفئة من الكود وذلك باختيار مم Generate new †y‏ بدلا من person‏ assاc‏ enerateع‏ عندها قبل أن يتم إنشاء الفئة يتم 
إظهار صندوق حوار يمكننا من اختيار نوع الفئة وخصائصها التي نريد قبل أن تقوم بيئة التطوير بعملية الإنشاء الفعلي للفئة 


Generate New Type 


ACZESS 


Default ¥ Class <| E 


Location: 
Project: 
WindowsApplicationd ¥ 


File Name: 
@ Create new file 
O) Add to existing file 


| Current Filez 


Lancel 


نريد الآن إضافة وظيفة للفئة تعيد سنة ميلاد الشخص فنعود لمحرر كود الزر الخاص بالنافذة ونضيف تحت الكود السابق السطر التالي 


Me.TextBox1.Text = sa.BirthYear 


وبنفس الطريقة نختار الأمر .... اء ك0 طmet‏ مatمعممت‏ فيتم إنشاء الوظيفة المناسبة 
Me. TextBox1l. Text = sa.BirthYear‏ 


A Sub LET TTA TETEETTI 
WindowsApplication2.Person". 
a55 
iGenerate method stub for 'BirthYear' in: 
i WindowsApplication2.Person' 


Generate property stub for 'BirthY'ear’ in 
WindowsApplicationd,.Person’ 


benerate field for 'BirthYear' in 'WindowsApplication2.Person' 


انتقل للملف ط۸.۷٥ء٣ءم‏ ولاحظ الكود المتولد 


Function BirthYear() As String 
Throw New NotImplementedException 
End Function 


عدل الوظيفة السابقة حتى تصبح كما يلي 
Function BirthYear() As String‏ 


Return DateAdd(DateInterval.Year, (-1 * _age), Now) 
End Function 


أو نريد إنشاء خاصية ءوع هل۸ لفئتنا نعود أيضا لمحرر كود الزر في النموذج ونضيف السطر التالي 
sa.Address = "Damascus Sysria"‏ 


وبنفس الطريقة نختار ... رمم Pro‏ مratعممت‏ فيتم إضافة الخاصية للفئة م٣مم‏ وهذا سرد للفئة م٣مم‏ حتى هذه النقطة 


Class Person 


Private _age As Integer 
Private _perName As String 


Sub New(ByVal PerName As String, ByVal Age As Integer) 
' TODO: Complete member initialization 
_perName = PerName 
_age = Age 

End Sub 


Property Address As String 
Function BirthYear() As String 
Return DateAdd(DateInterval.Year, (-1 * _age), Now) 


End Function 


End Class 


